﻿Imports System.Web.SessionState

Public Class Global_asax
    Inherits System.Web.HttpApplication

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application is started
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the session is started
    End Sub

    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires at the beginning of each request
    End Sub

    Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)

		If HttpContext.Current.User IsNot Nothing Then

			If HttpContext.Current.User.Identity.IsAuthenticated Then

				Dim identity As FormsIdentity = DirectCast(HttpContext.Current.User.Identity, FormsIdentity)
				Dim ticket As FormsAuthenticationTicket = identity.Ticket
				Dim roles() As String = ticket.UserData.Split(",")
				HttpContext.Current.User = New System.Security.Principal.GenericPrincipal(identity, roles)

			End If

		End If

	End Sub

    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when an error occurs
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the session ends
    End Sub

    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application ends
    End Sub

End Class